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ONLY HERPES LAST FOREVER 


by Burks A. Smith of Datasaith 
PO Box 8036, Shawnee Mission KS 66208 


(Ed, Notes This is a continuation of an article which started in last aonth’s MUG newsletter.) 
FROM MDOS AND CP/M TO KS-DOS 


When I started working with aicrocomputers in 1978, I chose a Micropolis subsystem because of the excellent BASIC and a 
disk storage capacity that was about double other 5 1/4" disks and quite a bit aore than an 8" disk. I used MDOS to 
write aany useful programs in ay manufacturing business. When I decided to become a full-time software designer, I 
began to assemble a second computer from the board level to save money. I bought the last "discontinued" IMSAI 8080 
chassis from Computerland and built the processor and aeaory from Coapupro kits. Naturally, it also had a Micropolis 
subsystem so it would be compatible with the first computer, and I chose a Vector Graphic Mindless Terminal and Bit- 
streamer I/O card so that I could use Vector Graphic software without modification. For the finishing touch, I even 
bought an official Vector Graphic monitor ROM, which allowed ae to run screen oriented prograas like the Scope editor 
and Raid de-bugger. I sold many programs for Vector computers, both in MDOS and CP/M. In 1982 I got an IBM PC. To 
date, I have already upgraded the first PC to a hard disk and bought a second PC-XT with a hard disk. 99% of ay busi- 
ness is now for IBM and IBM compatible computers, but I use ay Nicropolis based machine every day for word processing, 
payroll, and bookkeeping, The oldest Micropolis based computer has a bad terminal and some flaky memory, but the disk 
drive still works fine and I am saving it as a backup. 


Micropolis MDOS was written by a company in the disk drive business so that their customers would have something to do 
with the disk drives they were trying to sell. In those days, there wern’t many micros in use, and CP/M had not been 
establised as the dominant operating system, Radio Shack’s TRS-DOS and North Star DOS were very popular, not to aention 
APPLEDOS. 


When Vector stopped shipping MDOS as standard on their machines, I learned how to use CP/M and Microsoft Basic and 
eventually transferred ay corgercial software to CP/M, When the PC came along, I again moved the software, and now have 
versions to run under three different operating systems, I use a serial data cable between the IBM PC and the Micropo- 
lis for routine transfers of files and have very little trouble keeping both machines busy. I haven’t written a Microp- 
olis Basic or MDOS prograe for several years, but I never did like CP/M that auch, I think NS-DOS is great, but still 
have cormplaints about Microsoft BASIC, 


If you get a new MS-DOS computer, you won’t want to abandon your present computer. It can ease the transition, and with 
a little communication between the two computers, you can make use of auch of your programs and data on the new machine. 
If you use MDOS, the format of your data will probably have to be changed before it can be used. 


Software is a different problem. Since MS-DOS machines use a different aicroprocessor, any machine-language prograns 
you have will not run on the new machine. If you write programs in assembly language, significant changes will have to 
be sade in your source code to get programas to run on the new machine. BASIC is a different matter. If you are now 
using Microsoft Basic and CP/M, the changes in your program will be ainor, if any, since PC-BASIC is a superset of the 
original Microsoft BASIC. If you use Micropolis basic, the translation will have to be more extensive, but is not too 
difficult. 


FILE FORMAT DIFFERENCES 


Micropolis disk drives, as you know, use 16 “hard sectored" disks and write approximately 256 bytes in each record. The 
nuaber of tracks and sides varies with the type of system you have, MDOS is oriented toward the 256 byte record and is 
incapable of using different record sizes. If you want to maintain records of other than 256 bytes, you will have to 
write software that siaulates it. The IBM PC uses 40 track "soft sectored” diskettes with either 8 or 9 sectors per 
track. Each sector is 512 bytes long, but both CP/M and MS-DOS handle records of a programmer-specified size, so the 
actual sector size on the disk is uniaportant to the user. IBM double sided disks have a capacity that is approximately 
the same as a single-sided Micropolis Mod II disk, or about half the data density. The new IBM PC-AT, which was just 
announced, is reported to have new high density drives that surpass Micropolis in density, finally. 
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Data is stored by Micropolis BASIC in 256 byte records, which may hold a nuaber of different variables. These variables 
are always read and written in the same order but may vary in length. Numbers stored consecutively on the disk are 
separated by at least one blank space, and strings are stored between “string delimiters", a special character defined 
by the STRING statement as being used for this purpose. 


The file formats for GW-Basic are identical to the old version 5 conventions. There are two formats, 


"Sequential" format has no record structure. The data is written in ASCII to disk as it would appear ina DATA state- 
ment, with commas or carriage returns separating individual data values, Sequential files may have new data written to 
the end of thea, but aust be read from the beginning to find a particular value. This is good file structure for com- 
munications and text purposes and is fast and easy to use. 


"Random" format has fixed length records like Micropolis Basic, but the record length may be from 1 byte to 32K bytes. 
Data within a record may be organized in either a fixed field width or sequential format. The fixed field width foraat 
requires packing and unpacking records, which takes quite a bit of additional code. Nuabers are usually stored in the 
internal binary format for very efficient use of storage. Sequential format within a fixed length record closely 
matches the Micropolis Basic method, except that the string delimiter is a comma or carriage return, Strings may be 
enclosed in quotation marks so that they may contain imbedded coamas, but strings may not contain quotation marks. 


SENDING FILES TO MS-DOS 


Transterring data from MDOS computer to an NS-DOS computer is actually easier than transferring from MDOS to CP/M on the 
same machine. With two computers, each running its own operating system, there is no disk format translation necessary, 
Since the Micropolis disk format is hopelessly incompatible with the soft secored disks commonly used by the IBM PC and 
its clones, the best way to send data to the new machines is through a communications line. All you need is a serial 
port on each machine and an RS-232 cable for hooking thes up. The transmission rate can be as high as 9600 baud 
(roughly 960 characters per second) with the right software. 


If you already have some aeans of communication, such as a modem program, you can use it to transfer your files. If you 
don’t have any comaunications software, you have several options. First, if you have the hardware and software to drive 
a serial printer like a Diablo or NEC, you can just "print" your files to the new computer. A simple Basic program on 
the MS-DOS machine can emulate a printer save your printed output to disk. Almost all Vector Graphic coaputers have 
this capability either through the CP/M "CONFIG" program or the MDOS "DIAB" overlay. Second, if you have a serial port 
but no printer driver for it, you could write a Basic program to read a file and send it to your serial port. A one-way 
transfer with no error checking needs only very siaple logic. Third, you could buy some software. There are quite a 
few communications packages available for CP/M and MS-DOS, but not many for Micropolis MDOS. If you need an extreaely 
reliable data transfer at high speed, the public-domain program known as “XMODEM" by Ward Christiansen can be obtained 
through aost CP/M user groups at a small fee, The program is written in assembler and usually needs to be configured 
for a specific machine, so don’t take this route if you’re not a prograamer, The MUG probably has something in the 
library that will work under NDOS. 


Programming an IBM-PC or a PC-Compatible to simulate a serial printer is simplified by the fact that commumications on 
these machines are interrupt driven and automatically buffered. This means that if data is detected coming in on a PC’s 
serial line, the processor is interrupted from whatever it was doing for long enough to get the byte and store it away 
for later use. This holds true for any running program except timing sensitve operations like physical disk 1/0 and 
allows you to use Basic to write communications programs without worrying too much about the slow speed of Basic, In 
the examples below, sending output to a serial printer port is assuaed, 


Unless it is written in a high level language like Basic, a program can not be moved from MDOS to MS-DOS, The 8086 
family of microprocessors does not have the same instruction set as the 8080 family, so 8080 machine language prograas 
won’t run on an 8084, If you write programs in asseably language, your source code will have to be substantially 


rewritten for the 8086, but the chips are close enough in architecture that no radical logical changes will be neces- 
sary. ; 


Microsoft Basic is sufficiently close to Micropolis Basic that programs that work on one can be aodified torun on the 
other, The "tokenized" disk formats of the two languages are totally incompatible so Micropolis Basic program files 
aust be converted to ASCII text before they can be used by Microsoft. This is most easily done if you are using a 
printer driver to transmit data. Simply ASSIGN(2,3) and LIST the program with the other computer connected to the 
printer cable. Don’t use LISTP unless you want the white space between pages to be sent too. 
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Data files containing plain text can be sent through whatever listing facility you have with the program that created 
the files. For example, a text file created by "LINEEDIT" can be duaped to the serial printer port with the PRINTP 
command. Likewise, files created by a word processer can use the word processor’s printer list facility, 


Data files created by a Basic program can be sent by writing a Basic program to read the files, reformat the records to 
suit Microsoft Basic, and send thea to the serial printer port as if a report were being printed. The way you intend to 
use the data on the new computer dictates which kind of reformatting is necessary. The simplest format is the sequential 
file. In the following example, a Micropolis file containing variables A,B, and C is converted to a sequential file file 
that can be read by GW-Basic: 


10 OPEN 1 *DATAFILE* END 60 

20 OPEN 2 "$P" 

30 GET 1 A,B,C 

40 PUT 2 As", "3By", "C 

50 6070 30 

b0 PUT 2 CHAR$(26) ! eof mark 
b0 CLOSE 1: CLOSE 2 

70 END 


Note that the only reforaatting that is necessary in this case is the addition of a comma delimiter between the varia- 
bles, The carriage return and linefeed that separate individual records are valid delimiters in GW-Basic so no explicit 
coama is required after the last variable in a record. 


As written above, the file created as MS-DOS stores the data is a "sequential" file that can not have random access by 
record, To create a file that you may access randomly, it aust have a fixed record length and it is highly desirable to 
pack or "SET" numeric variables in binary format, fixed-length fields. Double precision values (about 15 digits accur- 
2 can be stored in 8 bytes, single precision (about 6 digits), can be stored in 4 bytes, and integer (+-32745) in 2 
ytes, 


The following program in GW-BASIC will read the file created above and convert it to a random access file containing 3 
single precision values per record, or 12 bytes per record. 


10 OPEN "DATAFILE" FOR INPUT AS #1 
20 OPEN "DATAFILE.RND" AS #2 LEN=12 
30 FIELD 42,4 AS A$,4 AS BS,4 AS C$ 
40 WHILE NOT EOF(1) 

50 INPUT #1, A,B,C 

b0 LSET AS=HKS$(A): LSET BS=4KS$(B) 
70 LSET CS=HKS${C) 

80 PUT #2 

90 WEND 

100 CLOSE 1 

110 END 


In the above example, line 10 could also be written as OPEN "I", #1,"DATAFILE", and line 20 could be written as OPEN 
"R",#2,"DATAFILE.RND", which is the Microsoft syntax from earlier versions. The FIELD statement allocates space for the 
packed data, and LSET and MKS$() do the packing. The PUT statement writes the data to disk in the next available 
record. The Microsoft prograa is longer than its Micropolis equivalent but is not restricted to a record size. Record 
size is specified in the OPEN statement. 


MICROPOLIS TO MICROSOFT 


Converting programs from Microsoft Basic to GW-Basic is a fairly siaple process, but the languages have major differ- 
ences in the way they handle files. If random access files are to be used, they should be carefully laid out before 
starting the translation. Write subroutines to read, write and FIELD so that Micropolis GET and PUT statements can be 
replaced by GOSUB’s, GW-Basic is very fast at logic, sath and program branches, but is slow in some kinds of 1/0, 
GW-Basic allows long variable names, so you are not restricted to the single letter or letter followed by a nuaber in 
Micropolis. Multiple character labels add greatly to a program’s readability, but keep in mind that scanning for 
excessively long variable names is slower than scanning for short ones. 
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The best tool for early translation is a good text editor or word processor. Start with the Micropolis Basic program in 
ASCIT foraat and proceed as follows: 


1. Find all the exclamation points used as REMs and replace them with an apostrophe, which is the REM equivalent in 
Microsoft Basic. 


2. Change all CHARS to CHR$. Change REPEAT$ to STRING$ function, noting that STRING$ has a different syntax and will 
only repeat a single character. Change INDEX to INSTR, 


3, Change all OPEN statements to correct syntax for the type of file being used. If the file is for random access, 
execute FIELD statements for the file. If the program has error handling, an ON ERROR GOTO statement must be included 
instead of the ERROR option of the OPEN statement, Note that ON ERROR GOTO intercepts all errors, even non-disk errors 
such as syntax errors. You may test the reserved variable ERR to determine which error has occrred, and variable ERL 
for the line nuaber where it occurred. One little idiosyncracy is that you aust CLOSE a file on a “file not found" 
error before you can use the file nuaber again. The number of files that can be open at one time defaults at 3, but may 
be specified as any number when BASIC is loaded. Legal file numbers are from 1 to the largest number of files that may 
be open, When using the defaults, files may only be nuabered 1, 2, and 3. 


4, Find all the PUT statements and substitute a GOSUB to your disk output subroutine, perhaps passing a record number. 
If the PUT statement is for screen or printer output, change it to a PRINT # statement, which must be used for a sequen- 
tial device like a printer, keyboard, or terminal. 


5. Locate all the FMT functions. Microsoft has no FMT function, and does formatted output by use of the USING clause 
in a PRINT or PRINT # statement. You must change any PRINT statement containing a FMT function to a PRINT USING state- 
nent, 


6. Change screen and cursor control code to that of the new system. Cursor control may be accomplished by PRINTing 
control codes, but GW-Basic has statements like LOCATE, COLOR, SCREEN, CLS, and BEEP that provide more sophisticated 
control of the terminal, 


7. Save the edited text, get BASIC up, and load your program, and type RUN, Syntax error? You’re on your own. 


Numeric precision is GW-Basic’s weak point. Micropolis variable precision with the SIZES statement is unique, and give 
Micropolis Basic more accuracy in significant figures than most mainframes. Nicropolis also stores nuabers in decimal 
(BCD) format, which is preferred for financial calculations. 


Microsoft has four types of variables; integer, single precision, double precision, and string. Integers are simply 
signed 16-bit binary nuabers in the range of plus or minus 32767. They excel as counters, flags, and array subscripts 
because they are very fast. Single precision and double precision variables store floating-point binary numbers with 
accuracy of about 7 and 15 significant figures respectively when converted to decimal. I have encountered instances 
where, because of differences in notation and conversion, GW-Basic finds it impossible to store a number I have entered 
exactly, A number entered as dollars and cents can sometimes be turned into a decimal with 13 numbers or so to the 
right of the decimal point. This small degree of error can cause bugs in programs. For example, if a double-precision 
Number is subtracted froa another double-precision nuaber of apparently the same value, the answer may not be exactly 
zero, and would not test equal to zero in an IF statement. 


String variables may be fron 0 to 255 characters in length and have space dynamically allocated to them, Therefore, you 
do not have to dimension long strings as if they were arrays and can leave out the length dimension on a string array. 


Some time spent reading the manual will alert you to many of the things you should look for when translating you pro- 
gran, 


RECEIVING A FILE ON AN IBM PC 


The following program emulates a serial printer’s protocol so that an IBN PC (and most other GW-Basic machines) can save 


files to disk by appearing to your Hicropolis-based computer as if it were a printer. This protocol matches that expect- 
ed by Vector Graphic printer driver software in the MDOS "RES" overlay called "DIAB" and in the CP/M "CONFIG" program as 
"Quae/Diablo”. Other computers will have the same protocol when dealing with these saae printers, 
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In order to prevent the serial printer’s buffer from overflowing, the printer drivers use a paced transmission method 
called ETX/ACK protocol. After outputting a block of data, usually a CR-terminated line, the computer sends an end-of- 
text (ASCII 3, called ETX) character to the printer and goes into a wait loop where further transmission is suspended. 
When the printer catches up to the point where it finds the ETX in its buffer, it responds by sending an acknowledge 
(ASCII 6, called ACK) character back to the computer signifying that all characters up to the ETX have been printed. 
Upon receiving the ACK, the computer resumes transmission for another line of data, 


In the eaulator program, Basic buffers all characters received by appending them toa string until it gets the ETX 
character. Knowing that the sending computer won’t be sending anything else until it gets the ACK, the program takes 
tine out to write the received line to disk and then responds with the ACK. This process continues until the emulator 
receives a control-Z (CHAR$ (26)), which is the sequential end-of-file mark for CP/M, MS-DOS, and all versions of 
Microsoft Basic. When the control-2 is received, the emulator program closes the tile and asks for new file nase. If 
none is entered, the program stops. 


Usually, Basic isn’t a good choice for a communications program because it is relatively slow and there is a chance that 
characters could be lost if the transmission rate (Baud Rate) is too high. However, since the IBM PC has an interrupt- 
driven communications port, it will buffer characters received until Basic has a chance to read them. However, a disk 
write can not be interrupted because it requires the processor’s undivided attention to maintain the proper timing. 
This is why the ETX/ACK protocol is necessary to avoid possible loss of data. In our office, the program is used 
routinely at 9600 baud, but you should select the baud rate used by your serial port, usually 1200 for serial printers. 


10 > ttt XCOM ttt 

20 *SERIAL PRINTER EMULATOR WITH ETX/ACK PROTOCOL 
30” For IBM PC 

40 ° Datasaith 

50 ° Box 8036, Shawnee Mission KS 66208 

60’ 

70 ON ERROR 6070 590 

80 PRINT “SERIAL PRINTER EMULATOR” 

90 ETX$=CHR$(3):  ACK$=CHR$ (6) 

100 CANS=CHR$ (24) 

110 FALSE%=0: TRUEZ=NOT FALSE 

120 INPUT "Enter baud rate"sBAUDZ 

130 GOSUB 400 * INITIALIZE COMMUNICA TONS 

140’ 

150 ° RECEIVE A FILE (DTE ONLY) 

160? 

170 INPUT "ENTER NAME OF FILE TO RECEIVE";FILES 
180 IF FILE$="" THEN 640 EXIT IF NO NAME ENTERED 
190 OPEN "O",#1, FILES 

200 °< FILE TRANSFER LOOP 

210 IF INKEYS=CAN$ THEN AS=CAN$: GOSUB 540: PRINT "CANCELLED": GOTO 370 
220 GOSUB 490: IF B$="" THEN 210 

230 IF BS=ETX$ THEN 280 

240 IF BS=CHR$(26) THEN 350 

250 RECS=REC$+B$ 

260 IF NOT RT% THEN IF BS<>CHR$(10) THEN PRINT B$; 
270 GOTO 200 

280 (WRITE A REC 

290 IF RTZ THEN PRINT "."3 

300 PRINT #1,REC$s 

310 AS=ACKS 

320 GOSUB 540 

330 REC$="" 

340 GOTO 200 

350 PRINT: PRINT "END OF FILE ON ";FILE$ 

360 BEEP 

370 CLOSE #1 

380 GOTO 150 *REPEAT 
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390? 
400 ° < INITIALIZATION communications file 
410’ 
420 COMFILE$="comls "+STR$ (BAUDZ) +",n, 8" 
430 OPEN COMFILES AS #2 
440 KEY OFF 
450 LOCATE ,1,1 
460 IF BAUDZ<1200 THEN RTZ=FALSEX ELSE RTA=TRUEX 
470 IF LOC(2)<>0 THEN BS=INPUT$(LOC (2), #2): B$="" *FLUSH BUFFER 
475 RETURN 
480? 
490 °< INPUT CHAR (IF ANY) FROM SERIAL PORT AND RET IN BS 
500 ’ 
510 IF EOF(2) THEN B$="" ELSE BS=INPUTS(1, #2) 
520 RETURN 
540 7¢ OUTPUT A$ TO SERIAL PORT 
550 ’ 
560 PRINT #2, A$; 
570 RETURN 
580 ’ 
590 ° ERROR HANDLER 
600 ’ 
610 IF ERR=57 THEN PRINT CHR$(233);: RESUME 
620 ON ERROR GOTO 0 
0 , 
b40 ° < STOP PROGRAM 
b50 END 
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BASIC/Z CORNER #21 


by Steven Guralnick 
375 South Mayfair Avenue, Suite 205, Daly City, CA 94015 


Those of you who have been following this coluan for a while know that I have produced, and am selling, a tickler 
program and a payables program. 


I decided that I wanted to tie a serial number to the program, to track the origin of it. Normally, this can be done by 
implanting it into some data file. In this case, that wasn’t practical because there is no data file that is never 
changed. TICK.DAT on the tickler program and PAY.DAT on the payables program are the only data files and they can (and 
usually are) erased when the user is finished playing with the demo data on thea. Any serial number stashed in there 
would be lost unless I reserved the first record, 


So, I spoke with System/z and asked thea how I aight plant a serial number either into the .COM file or into the .BZ0 
file before BINDing. To ay surprise, I learned that it is possible to open up the .COM file, after it has been created 
with the BIND command, 


What you do is to place a target in the source code, as a literal string, such as CODES="STEVEN G.". Then, using your 
serial isplanter, you swap your serial number for the target. It has to be a byte for byte swap. In other words, if 
the target is ten bytes, the serial number has to be ten bytes. 
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Because the literal serial number can be looked at, intact, with any kind of dump program, it is desireable to scraable 
the number before implanting it and also to put some kind of checker elsewhere in the destination program, using another 
target. 


What I will show you today is the basic implant routine. For obvious reasons, I will omit the scrambling routine and 
the checker routine. However, it gets pretty obvious. 


10 REM THIS IS THE SERIALIZER ROUTINE FOR SERIALIZING COM FILES 

20 ON ERROR GOTO @GLOBAL. ERROR 

30 REM 

40 UPCASE 

50 STRING ** 

60 DIM A$(128) 

70 IF COMMAND$="TICKLER" OR COMMANDS="PAY" THEN FLNAMES=COMMANDS$+". COM" 

80 IF COMMAND$<>"TICKLER" THEN IF COMMAND$<>"PAY" THEN CLS:PRINT "Include the name of the program to be serialized 
("*TICKLER®* or "*PAY"")":CLOSE: STOP 

90 CLS:PRINT TAB(20);"%8% SERIAL IMPLANT PROGRAM FOR "sFLNAMES;" $33" 

100 PRINTOUT$="":PRINTsPRINT"Do you want a printout of remaining serial nuabers (Y/N (<er) is no) "3: PRINTOUT$= 
EDIT$(1) PRINT "":GOSUB @ABORT 

110 IF PRINTOUT$="Y" THEN CLS:GOTO @PRINTOUT 

120 CLS:PRINT “What drive will hold the disks to be serialized?"s:DRIVES="":DRIVES=EDIT$(1):PRINT "":GOSUB @ABORT: 
DRIVES=DRIVES+"s * 

130 REM 

140 FILENAMES=DRIVES+FLNAMES 

150 LOWCASE:PRINT "Enter the serial number leadin"s:LEADINS=EDITS(LEADINS,4):PRINT "“:UPCASE:GOSUB @ABORT 

160 IF LEN(LEADING)<4 THEN LEADINS=REPEAT$(" ", 4) +LEADINGsLEADINS=RIGHTS (LEADING, 4) 

170 SERIAL. NUMBER. TARGET$="ROGER S.T,":REM THIS IS THE TARGET IN THE COM FILE THIS PROGRAM LOOKS FOR 

180 REM 

200 REM 

230 PRINT*Mount the disk to be serialized in drive “sLEFTS(DRIVE$,1)3" and press <er)" 

240 PRINT "or Press ESCape key to abort “s:CONTINUES="":CONTINUES=EDIT$(0):PRINT ""sGOSUB @ABORT 

250 RESET 

260 OPEN 1 FILENAMES UNFMT RECLEN 128 END 450 ERROR @CANNOT. FIND, THE. COM. FILE 

270 COUNTER#=1 

280 OPEN 2 “SERIAL. DAT" RECLEN b ERROR @CANNOT.FIND, THE. DATA. FILE 

290 IF SIZE(2)=0 THEN CLS:PRINT “Serial numbers have been used up."sSTOP 

300 REPLACEMENT, SERIAL., NUMBERS=FNGET. THE. SERIAL. NUMBERS 

310 REN 

320 REM 

330 REM 

340 FOR COUNTER#=170 TO 1000:REM FOR A .COM FILE, START AT RECORD 170--FOR A .BZ0 FILE, START AT RECORD 1. THE FIRST 
170 OR 50 RECORDS IN THE .COM FILE ARE THE RUN TIME LIBRARY, 

350 GET 1 RECORD COUNTERS A$ 

360 PRINT TAB(12,39) sCOUNTER® 

370 ALSINDEX (A$, SERIAL. NUMBER, TARGETS) 

380 IF AkDO THEN AS=LEFTS$(A$,A&-1) +SERIAL, NUNBERS+RIGHTS (A$, 128- (A%+9)): PRINT TAB(20,10);"SERIAL NUMBER ";REPLACEMENT, 
SERIAL. NUMBERS; " IMPLANTED": PUT 1 RECORD COUNTERS A$: SERIAL, FLAGS=1 

390 REM 

400 REM 

410 REM 

420 IF SERIAL, FLAG&=1 THEN SERTAL.FLAG&=0: GOTO @QUIT:REM QUIT--NUMBER IS IMPLANTED 

440 NEXT COUNTERS 

450 IF SERIAL.FLAGK(>1 THEN PRINT*Cannot locate the serial number target. Serial number "sREPLACEMENT. SERIAL. NUMBERS; " 
will not be used. Note this," 

490 LABEL QQUITSREMESEERERSESSERESESSEE SSR e eee cees 

500 CLOSE:PRINT TAB(23,10);"Finished. Press <cr> to go again or ESCape to exit"s:CONTINUES="":CONTINUES=EDITS$(O ):IF 
ALTKEY<>1 THEN CLS:60T0 130 

510 PRINT TAB(23,70);"ALL DONE": CLOSE: STOP 

520 REM 
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530 REM 

710 DEF FNGET. THE, SERIAL NUMBERS: REMSSaesssaeegsses 

720 REM THIS ROUTINE GETS THE NEXT FILE NUMBER FROM THE DATA FILE AND THEN DECREMENTS THE VARIABLE WHICH BECOMES EOF 
WHEN THE FILE 16 CLOSED 

730 NUMBER. OF DATA. RECORDS=S17ZE (2) 

740 GET 2 RECORD NUMBER, OF. DATA, RECORDS SER.NO 

750 DECR NUMBER. OF. DATA. RECORDS 

760 EOF (2)=NUMBER. OF DATA. RECORDS 

770 FNENDS=LEADINS+FMT (SER. NO, "999999") 

780 LABEL @GLOBAL.ERROR:REMSSSUUSeRseeeeeeeeeseggae 

790 CONSOLE 

800 PRINT “Line is "sERRLINE 

810 PRINT “Error is “sERR$:GOTO 840 

820 LABEL @CANNOT. FIND. THE. DATA.FILE:CLS:PRINT"I cannot locate the serial numbers file called "*SERIAL.DAT’**:GOTO 840 
830 LABEL @CANNOT.FIND. THE.COM.FILEsCLS:PRINT"I cannot locate the file called "sFLNAME$;" on drive "sLEFT$ (DRIVES, 1) 
840 CLOSE 

850 STOP 

BAO LABEL @ABORT:REMSEERSSSSEEER EERE Ree a Raat eee 

870 IF ALTKEY<>! THEN RETURN 

880 CLS:PRINT “Serial program aborted. Shutting down. ":CLOSE:STOP 

890 RETURN 

900 LABEL @PRINTOUT:REMESSeaReeeeeseeeeeeeegensgansy 

910 REM THIS ROUTINE PRINTS QUT THE REMAINING SERIAL NUMBERS 

920 HARDCOPY$="":PRINT "Hardcopy? (Y/N) (<cr> is no) "s:HARDCOPY$=EDITS$(1):PRINT "*:GOSUB @ABORT 

930 IF HARDCOPY$="Y" THEN CONTINUES=""sPRINT “Get the printer ready and press <er) “s:CONTINUES=EDIT$(0) PRINT ""sGOSUB 
@ABORT 

940 IF STATUS(2)=0 THEN OPEN 2 "SERIAL.DAT" RECLEN 6 

950 IF HARDCOPY$="¥" THEN LPRINTER 

960 PRINTOUT. COUNTER#=51ZE (2) 

970 WHILE PRINTOUT. COUNTER#>=1 

980 GET 2 RECORD PRINTOUT. COUNTERS A$ 

990 IF HARDCOPYS="Y" THEN PRINT FMT(VAL(A$),"____-999999")+" "+REPEAT$("_",50)sPRINT ELSE PRINT A$, 

1000 GOSUB @PAGECHECK 

1010 IF HARDCOPY$="Y" THEN GOSUB @PRINT. STOP 

1020 IF PLINE>=50 THEN FORMFEED 

1030 DECR PRINTOUT. COUNTERS 

1040 WEND 

1050 CONSOLE 

1060 CLOSE 

1070 IF HARDCOPY$="Y" THEN FORMFEED ELSE PRINT "" 

1080 PRINT "Press <cr> to continue or ESCape to exit “s:CONTINUES=EDIT$(0):PRINT "":GOSUB @ABORT 

1090 6070 90 

1100 LABEL @PAGECHECK:REMSSSeeeeeeeeseaeneeregggggs 

1110 REM THIS ROUTINE CLEARS THE SCREEN IF IT OVERLOADS--IT ALSO IS A QUICK STOP WHEN YOU PRESS THE ESCAPE KEY 

1120 IF HARDCOPY$="Y* THEN RETURN:REM SKIP THIS IF THE PRINTER 1S ON 

1130 SCREEN. MAX&=PEEK (SETUP+63):REM GET THE LINES ALLOWABLE ON THE SCREEN FOR THIS TERMINAL 

1140 IF CLINED=SCREEN.MAX&-3 THEN BELL({):PRINT TAB(22,1);SPC$(78);TAB(22,15);"Press <cr> to continue"; sCONTINUES= 
EDIT$(O):1F ALTKEY=1 THEN CLOSE:CLS:CLRSUB:GOTO 90 ELSE PAGECHECK.FLAGK&=1:CLS:RETURN 

1150 RETURN 

1160 LABEL @PRINT.STOPSREMESSRURCRORESEE ESE R RRR e EES 

1170 REM THIS ROUTINE STOPS OUTPUT TO THE PRINTER 

1180 IF INSTAT=0 THEN RETURN 

1190 IF INCHAR$<>CHR$(27) THEN RETURN 

1200 CONSOLE 

1210 BELL(2):CLS:CONTINUES=""sPRINT TAB(22,10);"Printer output is halted. Press <er) to continue or ESCape to exit.": 
CONTINUES=EDITS$(1)3IF ALTKEYS1 THEN 1230 

1220 FOR SCREEN.LINE&=22 TO 23:PRINT TAB{SCREEN.LINE&, 1) ;SPC$(78):NEXT SCREEN. LINE&sLPRINTERs RETURN 

1230 CLOSEsCLRSUB: GOTO 90 

Herewith a few highlights. The program assumes you have a data file out there called SERIAL.DAT. How that is created 
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will follow at the end of this. 


You turn on the program by typing SERPLANT, followed by the name of the program, in this case either TICKLER or PAY, 


The program then picks up the name of the SERIAL. NUMBER. TARGETS, which I have set up as the same number of charac- 
ters as the serial number, with LEADIN$, LEADINS is a four digit number you key in when you serialize the disk. So, 
you might end up with a number called 1234987654, ten bytes which will show up on the printout on the screen in the 
destination program (when it signs on) as 1234-987654, LEADING is optional, the idea is to tell you where you sent the 
disk. 


Then, you open up the .COM file at line 260, as a random record file, using the UNFNT option. This is what was a 
surprise. I didn’t realize BASIC/2 would allow ae to read a hex file. System/z recommends using 128 byte record 
length, Shut off the delimiters( at line 50), DIMension the record as A$(128) (at line 60), 


Then, start into a loop (at 340) and start reading one record at a tine. Use the INDEX command at 370 to find the 
target. If you do, replace the target (which is at 170) with the latest serial number which is obtained from the 
function at 710. The serial nuaber is turned into a string (at line 770) and the size of SERIAL.DAT is reduced by one, 
with the EOF command. For that reason, the serial nuabers in SERIAL.DAT are put in there backwards, that is, for 
nuabers from 1 to 100, 100 is first and i is last. 


Once the serial nuaber target has been replaced with the real number, turn it off (at line 420), 


In the destination file, you have to look at the variable you established there and then you can see the number” on the 
screen, 


Here’s the routine for creating the serial numbers file, 


100 ON ERROR GOTO @GLOBAL. ERROR 

200 REM THIS ROUTINE SETS UP THE SERIAL DATA FILE FROM WHICH SERPLANT WILL GET THE NUMBERS FOR IMPLANTING ON SOMEONE’ S 
DISK 

300 CLS 

310 RESET 

400 G0SUB @CREATE, SERIAL. NUMBERS 

600 GOTO @QuIT 

700 LABEL @CREATE. SERIAL. NUMBERS: REMSSEeeeeaeseaees 

800 REM THIS ROUTINE CREATES THE NUMBERS AND PUTS THEM TO A DISK FILE CALLED SERIAL. DAT 
900 PRINT "Serial nuebers to be created start where “s:START. SERIAL. NUMBERS=EDIT$(6):PRINT "":IF ALTKEV=1 THEN @QUIT 
aon a ia nuabers to be created end where "s:END. SERIAL, NUMBER$=EDIT$(6):PRINT "":IF ALTKEY=1 THEN @QUIT 
1100 CLRN 

1200 CREATE 1 "SERIAL.DAT* RECLEN 6° ERROR 1300:60T0 

1400 

1300 SCRATCH "SERIAL, DAT":6070 1200 

1400 ON ERROR 1 CLEAR 

1500 SERIAL. COUNTER=VAL (END. SERIAL. NUMBERS) 

1600 WHILE SERIAL. COUNTER >=VAL (START, SERIAL. NUMBER$) 

1700 PUT 1 SERIAL. COUNTER 

1800 GOSUB @ABORT 

1900 PRINT TAB(12,10); "WRITING SERIAL NUMBER"; SERIAL, COUNTER 

2000 DECR SERIAL. COUNTER 

2100 WEND 

2200 CLOSE 

2300 RETURN 

3700 LABEL @GLOBAL.ERROR:REMSSOSaesssegsssegeeeesss 

3800 PRINT "Line is "sERRLINE 

3900 PRINT "Error is "sERR$ 

4000 CLOSE 

4100 STOP 

4200 LABEL @ABORT:REMSSESSSRSSSSSeseeaeeeersee esate 

4300 IF INSTAT=0 THEN RETURN 
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4400 IF INCHAR$<>CHR$(27) THEN RETURN 

4500 CLS:PRINT "Press <cr> to continue or ESCape to quit "s:CONTINUES=EDIT$(0):IF ALTKEY=1 THEN CLOSE: STOP 
4600 CLS: RETURN 

4700 LABEL @QUITSRENSSRSERESSeeereeeeeateeseaeeeats 

4800 CLOSE: STOP 


See you soon! 
(End - Basic/z S16) 
CESEEERRESESERSERERS SEER SESE R ESSER See e eee e ees 


CLASSIFIED 


HELP: Some help in figuring out why ay Micropolis CP/M (Computer Mart/Prodigy) won’t boot on ay IMSAI unless I’ve 
previously booted up through MDOS. Without first booting MDOS, CP/M starts to read, then flips back and forth, forever, 
between drives A: and Bs. Bob Fortune, 240 SE 8th, Dundee OR 97115 - (503) 246-5705, 


WANTED: A VG 3005 in used, but good condition. Also interested in the possibility of buying an 8" drive for the D: 
position. Guy Cusumano, AER-X-DUST, PO Box 93, Tennent NJ 07763 - (201) 431-1505. 


HELP: Can someone help ae find a repair shop for ay IMSAI box & its cards? Gary Fenical, Instrument Specialties, Inc., 
Delaware Water Gap PA, 18327 - (717) 424-8510. 


WANTED: Interested in buying a used (or new) Micropolis 1042 MOD I drive. Kirby Boswell, (215) 779-0522, 
SUURHUSEREREREE REUSE RRR EERE ERS R REESE REESE SERRE EERE SERS S SEER ERE R RRR S RSE R REESE RESETS REAR EROS TERESA SERS See eee e eee ae eee Tass 
T'a sure you’re aware that it’s getting to that Christmas shopping tiee, DAMAN may be able to help- especially with 
those "hard-to-get" iteas specifically for a Micropolis or Vector Graphic hard-sectored drive. DAMAN can get any soft- 
ware and convert it to 16 hard-sector format. If it isn’t listed below, give us a call, 


CP/M SOFTWARE 


CP/M Operating System (Lifeboat).... $213.75 BASIC/Z ~ Compiling Languaga.ssssees $300.00 
CATALOG - Disk Filing Systemssesooes $ 62.51 POWER - System Utilitysesesssseeseee $137,952 
CONDOR-1 - Data Base System.sseccess $240.73 CONDOR-3 - Relational Data Base..... $525.35 
dBASE II - Data Base Syste@..sesenes $520.80 MINI-LEDGER - Home Accounting System $126.35 
WORD STAR - Word Processors ccssseess $388.36 SPELLBINDER - Word Processor Plus... $304.57 
BDS-C - Compiling Languages ssecsssee $126.59 ASSM PLUS TOOLS. sessceesecevsecnerer s $168.00 
BOOKKEEPING. cesccceesenees $239.40 PAYROLL, seaseaee soveceeee $319.20 
SUPERCALC Ticcccsssuecesssersescsee $161.10 SUPERCALC Tlissseseeees reeneeceesene $223.90 
INFO STAR - Data Base Managerssssere $391.02 WORD MASTER - Text Editor sess, $119.70 


ANALIZA II - Psychiatrist Gabe...s.:. $ 43,89 HYPER TYPER -~ Typing Tutorsesessnees $ 42.56 
MDOS SOFTWARE 


BEM - Basic Expansion Module.s.sassa $ 51.87 BASIC/Z - Compiling Language......0. $ 85.00 
SORT/A - Assa Lang Sort for Basic... $ 59.85 XREF - Basic Cross-reference Gen’r.. $ 47.93 
DSM-{ - MDOS Disassembler....sseeees $ 51.87 UTL-1 ~ MDOS Utility Set. ssescesseee $ 75.81 
MDOS ExtensionScrssccsccrsesevsnseee $ 39.90 DATABASE TWO. sccvessenesesonuee aeee $ 39,90 
INVENTORY ONE, ssnsosanenososeososses $ 39.90 MODIFILE/MODIMATH (for “database two) $ 39,90 
REACT - Action Item Listssserecsevee $ 39,90 WAMSORT - Assay Lan. Sort for Basic. $ 39,90 
BOOKKEEPING. ssecccssesevessescuseren $199.50 PAYROLL: scsscctcccsescctcrennceeeccs $279.30 


O 


CUREEERERRER ESET SESE O TRUE UTTER et 
SESEUEEEROOEEDSERSREAE ERE R EERE REESE SEER EERE RE REET! 


it tt 
t BARE 1115 DRIVE tt 
7 eRe Rennes en t 
tt BARE? MICROPOLIS 1115 DRIVE n 
tt tt 
tt NO POWER SUPPLY, NO CABINET tt 
tt tt 
tt Use as replacement in tt 
tt Vector MZ, System B, etc. tt 
at tk 
it it 
n tt 
tk Single Sided: (MOD II or V) u 
tt List: $360.00 tt 
it NUG: $302.40 n 
tt t 
tt Double Sided: (MOD IV or VI) tk 
tt List: $447.00 tt 
u MUG: $375.20 tt 
n tt 
tt t 
tt DAMAN, 604 Springwood Circle it 
Ri Huntsville AL 35803 (205)881-1697 tt 
n tt 
tt it 


eciiiiiiiititiiecescsscrsiiiiititeccscsssocrcitissssscess 
PEPTTSITTG Si SCSSUPCe Pei itCttititittiititteeeeeecee teeny 


SOCEESESTSISIIGSCCCCCESSOCEEEERettitiiiiitiiteses ce Ceeee 
SSUCRESERSERSSESERRSEREEEPERER ESS S SRS RR TERS RSET EEN 


tt t 
it n 
n tt 
tt SINGLE 1115 SUBSYSTEM n 
1 terete neeweneneeneccne n 
tt ONE MICROPOLIS 1415 DRIVE it 
tt at 
nt IN CABINET, WITH POWER SUPPLY tt 
tt tt 
t Use as replacement or tt 
u Add-on in all systeas. tt 
tt tt 
n Single Sided: (MOD II or V) tt 
tt List: $493.33 t 
tt MUG: $414.40 tt 
it ts 
it Double Sided: (NOD IV or VI) tt 
tt List: $580.00 tt 
tt MUG: $487.20 tt 
L H 
it (Data cables extra - made to order) i 
tt DAMAN, 604 Springwood Circle u 
tt Huntsville AL 35803 (205) 881-1697 it 
tt it 
it t 


SITURSHISSIPISIGSSeessesiiitiieertistissesteseiscecii ly 
PTSECEISSECUISCECisseertsisteseeiitiisssettLce scents 


EETESSOSTTISSCRSITICSCLESi testi Steet iseesititisseriranl 
PT ECCTEISITITi tii ecerecliciitiisiireceecescisitiiisitiy 


t t 
tt ACCESSORIES tk 
A ee eece tt 
n tt 
tt SCOTCH (3M) L6-HARD-SECTOR DISKS (10) tt 
it Single sided $30.59 tt 
tt Double sided $47,038 
a FLIP-N-FILE 50 5° DISK HOLDER $26.60 r 
t 

u CP/M GAMES tt 
1 06 RRS SER ERS t 


tt LORK Tevsesncvecsccvsreeccveeenenes $44.76 Ht 
tt LORK Tlicccccueeseccoseserecesnnseas $44,76 H 
tt LORK U[]uvecvevecsevecsscssvessreeee $44.76 H 
tt DEADLINE, tevecccccesseccesveccesseee $52,808 $f 
tt STAR CROSS. cseseeeevvvereeeeevvecers $44.76 N 
tt SUSPENDED, vssevcssecccssereesveseees $92.88 H 


u $52.88 á t 
n $52.88 á tt 
it ENCHANTERs sevessnvvccccerteevceenees $92,88 $f 


n SORCERER, sevecsnseccvscesevevensucse $02,808 tf 
n INFIDEL, ssesunanunensnenesreveereeee $52.88 H 


u DAMAN, 604 Springwood Circle tt 
u Huntsville AL 35803 (205) 881-1497 u 
it t 


eeReceTSiteeeeeceiiTiitecesesesirisiseceseccrsrtisetiges 
CURORURSERRROEEEEOOOOE COREE SESE R RSE R REET R ERC C CROCCO 


ESSERCSECEESESSSiiiiitististetitisstis tists tect ese iSi 
eCEISITCE ECC eCCSeCETiTiTereesteciiiireseeeceres ices eens 


tt i 
it MICROPOLIS PARTS & DOCUMENTATION tt 
BE merece cccccnnnneenetenencnen n 
n it 


n 1000 SERIES DRIVE MAINTENANCE MANUAL $47.50 tt 
t 1100 SERIES DRIVE MAINTENANCE MANUAL $23.75 tt 


t PDS (MDOS) VERSION 4.0 (single sided) tt 
u Disks and manual $7125 H 
it Manual only $47.50 H 
tt Disks only $23.75 H 
tt PDS (MDOS) VERSION 4.1 (double sided) tt 
tt Disks and manual $95.00 it 
it Manual only (same as 4,0) $47,50 = 
tt Disks only (with tech note) $47,50 = tt 
it 100 TPI ALIGNMENT DISK tt 
tt Single sided $47.50 H 
tt Double sided $95.00 H 
u DIAGNOSTIC DISK (requires NDOS) $47.50 H 
u HEAD PADS $ .50 H 
u SAUNDERS MAGNALUBE $428 tt 
tt DRIVE MOTOR/TACH ASSEMBLY $36.10 H 
i DRIVE BELT a('- $3.75 H 
at PRINTED CIRCUIT BOARD A (single) $146.25 n 
tt PRINTED CIRCUIT BOARD A (double) $256.50 ‘tt 
tt 1071 DISK CONTROLLER $350.00 á tH 


n tt 
SECCECERESSISGSESSTSeiteseseeeceeeereettectcetritsiisisis 
Pe PeeTUTTList tier eeereteceetesiTiti ier recesitittiseeeene: 


t t 
t Published Monthly by DAMAN, 604 Springwood Circle, Huntsville AL 35803 ¢ 
$ Subscription rates: North America; $18/year Elsewhere; $25/year, Airmailed $ 

t 
For Assistance with general information, NUG/Vector Graphic, DAMAN hardware & 
& software, Micropolis Basic, Basic/z, Micropolis drives & Micropolis parts-% 
t 


CHERRROREREOEEREDEEEREE OSU R USER RRS SE REE R RAE R ERE RERUN ECE O 


Call Lynn or Buzz at (205)881-1697 during the Central Tines of 9 AM to 9 PH.t 
1 
eSTetasescieccctieesssiesesecessteceesiiisiscetacsiessscetessistestsccctst ies 


PRINTERS 


Guaranteed satisfaction. Return within 30 days for full refund. 


List DANAN DAMAN List DAMAN DAMAN 
Printer Price Price-1  Price-2 Accessories Price Price-{ Price-2 

Stx-B0 $199 $177 $182 Geaini Serial 
Gemini 10X $399 $328 $338 Interface $ 59 $ 56 $ 58 
Gemini 15X $549 $448 $461 Serial Interface 
Delta 10 $549 $443 $456 with 4K Buffer $119 $i $114 
Delta 15 $799 $645 $465 Serial Printer 
Radix 10 $849 $723 $745 Interface Cable $ 25 $ 26 
Radix 15 $995 $845 $870 
Powertype $499 $426 $439 Price-1 = Pre-paid. Price-2 = Charge. 
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